(setenv): Treat case as significant.

diff --git a/lisp/env.el b/lisp/env.el
index 256a3338e60c32de8c8e0d5f008f889ce14873a0..cc68de9cf00c7ae8e5d2a7ea2dc6c5821ef939be 100644 (file)
--- a/lisp/env.el
+++ b/lisp/env.el
@@ -40,6 +40,7 @@ This function works by modifying `process-environment'."
   (if (string-match "=" variable)
       (error "Environment variable name `%s' contains `='" variable)
     (let ((pattern (concat "\\`" (regexp-quote (concat variable "="))))
+         (case-fold-search nil)
          (scan process-environment))
       (while scan
        (cond